1 X=PEEK(186):IFPEEK(828)+PEEK(831)<>363THENLOAD"...MSP*",X,1
2 POKE56,12:CLR
3 PRINT"[147]":POKE53280,8:POKE53281,8
4 INPUT"QUELL-LW ";A$:A=VAL(A$):IFA<8ORA>15THEN4
5 INPUT">ZIEL-LW ";B$:B=VAL(B$):IFB<8ORB>15THEN5
6 INPUT"DATEINAME ";N$:PRINT"DATEI-TYP (P/S/U) ? ";
7 GETT$:IFT$<>"P"ANDT$<>"S"ANDT$<>"U"THEN7
8 PRINTT$:PRINT"BITTE DISK(S) EINLEGEN,":PRINT"DANN SPACE!":SYS58592
9 OPEN2,A,2,N$+","+T$
10 POKE3,0:POKE4,12:SYS866
11 CLOSE2:IFA<>BTHEN13
12 PRINT"BITTE ZIEL-DISK EINLEGEN,":PRINT"DANN SPACE!":SYS58592
13 OPEN2,B,2,N$+","+T$+",W"
14 POKE3,0:POKE4,12:SYS828
15 CLOSE2:POKE198,0:OPEN1,X:CLOSE1